home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitObjectEntityBaseOrders.dfm < prev    next >
Encoding:
Text File  |  2000-05-17  |  443 b   |  21 lines
  1. inherited ObjectEntityOrders: TObjectEntityOrders
  2.   Left = 285
  3.   Top = 161
  4.   Height = 479
  5.   Width = 741
  6.   object Query1: TQuery
  7.     DatabaseName = 'DBDEMOS'
  8.     RequestLive = True
  9.     SQL.Strings = (
  10.       'select * from orders.db where (OrderNo = :OrderNo)')
  11.     Left = 132
  12.     Top = 188
  13.     ParamData = <
  14.       item
  15.         DataType = ftInteger
  16.         Name = 'OrderNo'
  17.         ParamType = ptUnknown
  18.       end>
  19.   end
  20. end
  21.